// retrieve the windows directory, i.e. c:\winnt, c:\windows
function GetWinDir: string;
var
  PWindowsDir: array [0..255] of Char;
begin
  GetWindowsDirectory(PWindowsDir,255);
  result:= string(PWindowsDir);
end;